VB如何让数字显示"万""亿"?

Dim a As String, b As String, c As String, x As Long, d As String
x = 123456789
a = LTrim(Str(x))
b = Right(a, 4)
c = Right(a, 8)
c = Left(c, 4)
d = Left(a, 1)
a = d + "亿" + c + "万" + b
Text1.Text = a

可以考虑一下：先用lenth数出它有几位，以便确定哪几个字要用到，然后用mid 取出相应的位数来进行。

刚刚又看到一个类似的问题，将人民币值换成大写的可以给你参考一下：
Dim Num_To_Chinese(10) As String

Sub Init_Chinese()

Num_To_Chinese(0) = "零"
Num_To_Chinese(1) = "壹"
Num_To_Chinese(2) = "贰"
Num_To_Chinese(3) = "叁"
Num_To_Chinese(4) = "肆"
Num_To_Chinese(5) = "伍"
Num_To_Chinese(6) = "陆"
Num_To_Chinese(7) = "柒"
Num_To_Chinese(8) = "捌"
Num_To_Chinese(9) = "玖"

End Sub

Function Get_Chinese(ByVal m As Currency) As String

Dim Pre As Long
Dim Had_Frist_Num As Boolean
Dim te